Foreland January 1997/Foreland January 1997.iso/glossary.dir/00035.ls

Text File | 1996-12-26 | 1.3 KB | 52 lines

on checkBar
  global menuNum
  repeat with menuNum = 43 to 48
    if rollOver(42) then
      set the visible of sprite menuNum to 1
      next repeat
    end if
    set the visible of sprite menuNum to 0
  end repeat
end

on hiliteButtons
  repeat with spriteNum = 43 to 48
    if rollOver(spriteNum) then
      set mNum to the memberNum of sprite spriteNum
      set mname to the name of member mNum
      set hiliteName to mname && "hilite"
      set hiliteNum to the number of member hiliteName
      if hiliteNum > 0 then
        puppetSprite(spriteNum, 1)
        set the memberNum of sprite spriteNum to hiliteNum
      end if
      next repeat
    end if
    puppetSprite(spriteNum, 0)
  end repeat
end

on buttonClicked
  set spriteNum to the clickOn
  set upNum to the memberNum of sprite spriteNum
  set upName to the name of member upNum
  set downName to upName && "down"
  set downNum to the number of member downName
  set the memberNum of sprite spriteNum to downNum
  updateStage()
  repeat while the mouseDown
    if rollOver(spriteNum) then
      set the memberNum of sprite spriteNum to downNum
    else
      set the memberNum of sprite spriteNum to upNum
    end if
    updateStage()
  end repeat
  if the memberNum of sprite spriteNum = downNum then
    set the memberNum of sprite spriteNum to upNum
    updateStage()
    return 1
  end if
  return 0
end